home *** CD-ROM | disk | FTP | other *** search
/ Interactive Quarterly / The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso / pc / demos / az / cyberx.dxr / 00215_VIDEO CON PANTALLA DE OBJETO.ls < prev    next >
Encoding:
Text File  |  1996-10-06  |  869 b   |  36 lines
  1. on exitFrame
  2.   global objeto_nik, full_video, video, FrameRet, pase
  3.   if the timer > 240 then
  4.     puppetSprite(18, 0)
  5.     puppetSprite(19, 0)
  6.   end if
  7.   set frame_ret to the frame
  8.   puppetSound(0)
  9.   set FrameRet to the frame
  10.   set video to 0
  11.   if full_video then
  12.     preLoad(label("VIDEO COMPLETO VENTANA"), label("VIDEO COMPLETO VENTANA"))
  13.     go("VIDEO COMPLETO VENTANA")
  14.   else
  15.     preLoad(label("VIDEO NORMAL VENTANA" & objeto_nik), label("VIDEO NORMAL VENTANA" & objeto_nik))
  16.     go("VIDEO NORMAL VENTANA" & objeto_nik)
  17.   end if
  18. end
  19.  
  20. on keyDown
  21.   global Direccion
  22.   if (the keyCode = 125) or (the keyCode = 123) or (the keyCode = 124) then
  23.     puppetSprite(18, 0)
  24.     puppetSprite(19, 0)
  25.     puppetSound(0)
  26.     set Direccion to the keyCode
  27.     preLoad(the frame + 5)
  28.     go(the frame + 1)
  29.   end if
  30. end
  31.  
  32. on mouseDown
  33.   puppetSprite(18, 0)
  34.   puppetSprite(19, 0)
  35. end
  36.